home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / icon / packages.lha / packages / atari / ats.arc / TESTS.ARC / NAME.ICN < prev    next >
Text File  |  1990-03-28  |  477b  |  19 lines
  1. record complex(r,i)
  2.  
  3. procedure main(a)
  4.    static s
  5.    every write(image(name(main | T | L | s | a)))
  6.    T := table()
  7.    L := list(200)
  8.    L1 := []
  9.    every 1 to 200 do push(L1,1)
  10.    write(image(L[10]))
  11.    write(image(name(&error)))
  12.    write(image(name(T["abc"])))
  13.    T["abc"] := 1
  14.    write(image(name(T["abc"])))
  15.    every write(image(name(L[1 | 2 | 3 | -1 | -10])))
  16.    every write(image(name(L1[1 | 2 | 3 | -1 | -10])))
  17.    write(image(name(complex().r)))
  18. end
  19.